FormatRawTree <- function() { #RawTree) {
    
  # Format Part Tree (Assumes "PartTree.csv" exists in working directory)
  RawTree <- read.csv("PartTree.csv",header=FALSE,colClasses="character")
  print(RawTree)
  N <- dim(RawTree)
  N <- N[1]
  print(N)
  Part <- list("Tree"    = numeric(N),
               "Probs"   = numeric(N),
               "Replace" = numeric(N),
               "Repair"  = numeric(N),
               "Name"    = character(N))
  for (p in 1:N) {
    Part$Probs[p]   = as.numeric(RawTree$V8[p])
    Part$Replace[p] = as.numeric(RawTree$V10[p])
    Part$Repair[p]  = as.numeric(RawTree$V11[p])
    Part$Name[p]    = RawTree$V12[p]
    if (RawTree$V1[p]=="A") {Part$Tree[p]=1 ; next}
    if (RawTree$V2[p]=="B") {Part$Tree[p]=2 ; next}
    if (RawTree$V3[p]=="C") {Part$Tree[p]=3 ; next}
    if (RawTree$V4[p]=="D") {Part$Tree[p]=4 ; next}
    if (RawTree$V5[p]=="E") {Part$Tree[p]=5 ; next}
    if (RawTree$V6[p]=="F") {Part$Tree[p]=6 ; next}
    if (RawTree$V7[p]=="G") {Part$Tree[p]=7 ; next}
  }
  print(Part)
#   stop()
  return(Part)
}